home *** CD-ROM | disk | FTP | other *** search
/ Software of the Month Cl…Business) - New Member 21 / Software of the Month Club XXI - New Member Business.ISO / mac / Business / Financial Portfolio v4.1 ƒ / Financial Portfolio v4.1 / Financial Portfolio v4.1.rsrc / LENS_198_Conversion Calculator.bin < prev    next >
Text File  |  1995-11-23  |  2KB  |  70 lines
  1. ItemType: WIND
  2. Rect: 194,331,480,459
  3. AutoSize: FALSE
  4. Style: Dialog
  5. HasTitleBar: TRUE
  6. HasZoomBox: FALSE
  7. Name: Conversion Calculator
  8. Script: --on windowEvent  wdID,wdName,objNo,objName,objValue┬┬if objValue="Open" then ┬  get wsGet(wdID,"4","Hilite")┬  if it="true" then┬    wsSet wdID,"c1","Selection", "0,20"┬  else┬    wsSet wdID,"c1","Disabled", "true"┬    wsSet wdID,"c2","Disabled", "false"┬    wsSet wdID,"c2","Selection", "0,20"┬  end if┬else if objValue="Close" then ┬  ┬else if objValue="Suspend" then ┬  ┬else if objValue="Resume" then ┬  ┬else if objValue="CloseBox" then ┬  ┬else if objValue="ZoomBox" then ┬  ┬else if objValue="GrowBox" then ┬  ┬else if objValue="TitleBar" then ┬  ┬end if┬┬--end windowEvent┬
  9. Params: i8_Text┬i9_Text┬i0_TopLeft┬i4_Hilite┬i6_Text┬i5_Hilite┬i7_Text
  10. Result: i4_Hilite┬i6_Text┬i7_Text
  11.  
  12. ItemType: PUSH
  13. Rect: 201,99,273,119
  14. Name: OK
  15. DefaultItem: TRUE
  16. AutoClose: TRUE
  17.  
  18. ItemType: PUSH
  19. Rect: 96,99,176,119
  20. Name: Cancel
  21. CancelItem: TRUE
  22. AutoClose: TRUE
  23.  
  24. ItemType: TEXT
  25. Rect: 10,6,280,38
  26. TextFont: Geneva
  27. TextSize: 10
  28. AutoSize: FALSE
  29. Name: Title
  30. Text: Click the radio button to choose the type of conversion, then type in the # to set the equivalent.
  31.  
  32. ItemType: RAD
  33. Rect: 12,44,36,60
  34. Name: 
  35. Hilite: TRUE
  36. Script: --on mouseUp  wdID,wdName,objNo,objName,objValue┬get wsGet(wdID,"4","Hilite")┬if it="true" then┬  wsSet wdID,"c1","Disabled", "FALSE"┬  wsSet wdID,"c2","Disabled", "TRUE"┬  wsSet wdID,"c2","text", ""┬else┬  wsSet wdID,"c1","Disabled", "TRUE"┬  wsSet wdID,"c1","text", ""┬  wsSet wdID,"c2","Disabled", "False"┬end if┬--end mouseUp┬
  37.  
  38. ItemType: RAD
  39. Rect: 12,69,36,85
  40. Name: 
  41. Script: --on mouseUp  wdID,wdName,objNo,objName,objValue┬get wsGet(wdID,"5","Hilite")┬if it="true" then┬  wsSet wdID,"c1","Disabled", "TRUE"┬  wsSet wdID,"c1","text", ""┬  wsSet wdID,"c2","Disabled", "False"┬else┬  wsSet wdID,"c1","Disabled", "FALSE"┬  wsSet wdID,"c2","Disabled", "TRUE"┬  wsSet wdID,"c2","text", ""┬end if┬--end mouseUp
  42.  
  43. ItemType: TEXT
  44. Rect: 30,43,109,60
  45. TextFont: Geneva
  46. TextSize: 10
  47. AutoSize: FALSE
  48. Name: c1
  49. LockText: FALSE
  50.  
  51. ItemType: TEXT
  52. Rect: 30,68,109,86
  53. TextFont: Geneva
  54. TextSize: 10
  55. AutoSize: FALSE
  56. Disabled: TRUE
  57. Name: c2
  58. LockText: FALSE
  59.  
  60. ItemType: TEXT
  61. Rect: 114,45,118,58
  62. TextFont: Geneva
  63. TextSize: 10
  64. Name: text1
  65.  
  66. ItemType: TEXT
  67. Rect: 114,70,118,83
  68. TextFont: Geneva
  69. TextSize: 10
  70. Name: text2